home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
fglqbx10.zip
/
13-06.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-05-16
|
452b
|
23 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
FGmusicb "T150 L8 EDCDEEE P DDD P EGG P EDCDEEE L16 P L8 EDDEDC$", 1
WHILE FGplaying
PRINT "Mary Had a Little Lamb..."
WEND
FGwaitfor 18
FGmusicb "L16 CC#DD#EFF#GG#AA#B O+$", 2
WHILE FGplaying
PRINT "up the scale in two octaves..."
WEND
FGwaitfor 18
FGmusicb "T180 O2 L2 P L8 P GGG L2 D# L24 P L8 P FFF L2 D$", 1
WHILE FGplaying
PRINT "Beethoven's Fifth Symphony..."
WEND
END